<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>10</cardCount>
<cardID>3685</cardID>
<listID>9384</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on Activate_objput ActiveSel() into selectedset the hilite of bg btn selected to falseset the hilite of the target to truelock screenput the short name of the target into ThisOneput ThisOne into bg fld "ActiveSel"Send "CloseMe" to bg fld selectedhide bg fld selectedset the rect of bg fld thisOne to rect of bg fld "ActiveSel Template"show bg fld thisOnesend "OpenMe" to bg fld thisOneunlock screen with visual effect dissolveend Activate_objFunction ActiveSelreturn line 1 of bg fld "ActiveSel"end ActiveSelOn Show_INFO NmXset cursor to busyput "Fetching description for ..." && NmXGet bg fld "Data" of card "Step Descriptions"put it into DataXPut FullSort(DataX,"i=|","t=n","d=a","c=item 1") into DataXPut line nmX of DataX into lineXset itemdelimiter to "|"repeat with i = 1 to number of items of lineXif i is 1 thenput "Event:" && item i of lineX into line i of ListXelse if i is 2 thenif item i of lineX contains "MC" thenput "Monetary Cycle Event" into typeXelseput "Business Activity Event" into typeXend ifput "Event Type:" && TypeX into line i of ListXelse if i is 3 thenif item i of lineX contains "Bull" thenput "Bull Market" into typeXelseput "Bear Market" into typeXend ifput "Market Phase:" && TypeX into line i of ListXelse if i is 4 thenput "Description:" && return & item i of LineX into line i of ListXend ifPut return & "**** Headlines****" after ListXend repeatset itemDelimiter to commaput listX & return into card fld "INFO"put "Fetching headlines for ..." && NmXGet bg fld "Data" of card "Bus Headlines"put it into DataXset itemdelimiter to "|"repeat with i = 1 to number of lines of DataXif item 1 of line i of DataX is nmX thenput line i of DataX & return after card fld "INFO"end ifend repeatset itemDelimiter to commashow card fld "INFO"put emptyhide messageend Show_INFO</script>
